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SCRIBE*  I  Data  Analysis 


Introduction 

N  [  ! 

>A  LiNg  cooled  cat's  eye  interferometer  vas  flown  on  October  8, 

1980,  at  Holloman  AFB  under  the  SCRIBE  program.  Wr  at  the  University 
of  Massachusetts  took,  a  responsibility  for  the  post-f] ight  data  analysis 
which  can  be  divided  into  three  major  functions:  (l)  extraction  of  the 
interferogram  data  from  the  PCM  telemetry  record;  (2)  recovery  of  the 
spectral  data  from  the  extracted  interferograras ;  and  (3)  analysis  of 
the  spectral  data  in  terms  of  the  atmospheric  molecular  parameters. 

The  experiment  was  successful  only  during  the  first  20  minutes  of 
flight.  The  balloon-borne  instrument  failed  to  produce  the  interfero¬ 
gram  data  after  the  balloon  reached  an  altitude  of  6  km. 

Our  major  effort  up  to  the  present  can  be  summarized  in  the 
following  four  major  categories:  (l)  to  assemble  the  electronics 
interface  to  receive  the  output  data  of  the  PCM  decommutator  and  to 
modify  them  in  a  proper  format  for  the  PDPll/20  computer;  (2)  to 
implement  a  scheme  for  recording  the  interferogram  data  extracted  from 
the  PCM  record  onto  a  digital  magnetic  recording  tape;  (3)  to  develop 
a  scheme  for  processing  the  produced  interferogram  data  recorded  on  a 
magnetic  tape;  and  (U)  to  improve  the  analysis  scheme  on  the  recovered 
spectral  data.  Our  efforts  in  all  of  these  activities  were  successful 
in  that  we  were  able  to  obtain  the  atmospheric  emission  spectra  from 
the  telemetry  record.  Unfortunately,  the  flight  data  did  not  provide 

* 

Stratospheric  Cryogenic  Interferometer  Balloon  Experiment.  The 
technical  detail  of  the  program  and  of  the  October  8,  1980,  flight 
is  given  in  G.  Vanassc,  Ai'GL  Report  (1981 


1 


a  full  test  of  our  developed  scheme.  The  quality  of  the  flight  data  did 
not  reach  the  expected  level  due  to  the  interferometer  scanning  problem. 
In  addition,  mere  l6  interferogram  data  extracted  from  the  telemetry 
record  were  not  sufficient  to  provide  a  solid  basis  for  studying  the 
infrared  atmospheric  emission  as  a  function  of  the  altitude. 

The  present  scientific  report  summarizes  our  effort  which  was 
carried  out  for  processing  of  the  October  1980  data.  Included  in  the 
report  are  a  description  of  the  interferogram  electronics  hardware 
constructed  for  our  decommutation  scheme ,  the  PDP11  software  employed 
in  conjunction  with  our  decommutation  scheme,  and  the  CD C  software 
written  for  the  spectral  recovery  from  the  interferogram  data  recorded 
on  a  PDPll/RTll  format  magnetic  tape. 
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Decommutation  of  the  Telemetry  Data 

The  data  obtained  during  the  flight  were  sent  to  the  ground  station 
through  a  telemetry  radio  link.  The  scheme  used  for  the  telemetry  is 
shown  in  a  block  diagram  of  Fig.  1.  The  digitized  interferogram  data 
together  with  other  signals  were  fed  into  the  PCM  encoder,  which  produced 
the  PCM  telemetry  signal  is  a  proper  bit  sequence.  The  telemetry  signal 
transmitter  in  the  balloon-borne  package  and  the  receiver  in  the  ground 
station  formed  a  radio  link  between  the  data  obtained  by  the  balloon- 
borne  instruments  and  the  ground  station  recording  device.  The  SABRE  TV 
magnetic  tape  recorder  was  used  to  record  the  telemetry  signal  on  a  1/2" 
analog  tape  in  a  direct  recording  mode.  The  recording  was  done  at  800  K 
BPS  at  60  IPS. 

The  telemetry  signal  was  formatted  in  a  72  bit  per  frame,  which 
consisted  of  a  20-bit  synchronization  word,  a  4-bit  frame-identification 
word,  a  l6-bit  inter ferogram  data  word,  and  four  8-bit  words  for  other 
data.  The  synchronization-word  bit  pattern  is  given  in  Table  I.  The 
interferogram  data  were  made  of  a  12-bit  word  representing  the  A/D 
converter  output  and  a  4-bit.  control  status  word,  as  shown  in  Table  T. 

The  interferometer  was  scanned  at  an  approximate  rate  of  .3  cm  OPD/sec.  The 
interferogram  data  were  sampled  at  twice  the  HeNe  laser  line  wavelength  of 
6329  A  (in  vacuum).  The  telemetry  rate  of  11,  1  K  frame-per-second  was 
considerably  higher  than  the  interferogram  data  sampling  rate  which  was 
less  than  2  K  word-per-secor.d .  This  scheme  was  designed  to  accommodate 
fluctuating  interferogram  sampling  intervals  by  making  the  telemetry 
signal  transmission  deliberately  faster  than  the  interferogram  sampling 
rate.  It  was  devised  in  such  a  way  that  tlv  data  transmission  was  n<  v<-r 
caught  up  by  the  data  sampling.  Within  the  interferometer  scanning 
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Other 

Signals 


GROUND  STATION 
INSTRUMENT 


Figure  1 


Table  I 


Interferogram  Data  Bit  Format 


0  1  2  3  k  5  6  7  8  9  10  11  12  13  1U  15 

I*  I  1  I  !  1  ! — 1 — l — i - ! — i — i — i — ! - 1 — 


-v 


A/D  output  in 
12  bit  offset  binary 


0 


Drive  Direction  (q_‘ 
Gain 

Data  Valid  (l:  Data 


Forward  ■> 
Reverse 


Valid) 


■10V  000  000  000  000 

0V  100  000  000  000 

10V  111  111  111  111 


Synchronization  Word  (20-bit) 
111  010  111  001  000  000  00 


tolerance,  no  inter ferogram  data  should  be  lost  in  the  transmission.  The 
on-board  electronics  produced  a  sequence  of  zero-word  data  after  the 
sampled  interferogrnm  signal  was  transmitted  until  the  next  sampled  inter- 
ferogram  signal  became  ready  for  the  transmission.  The  data  status  was 
coded  in  a  l*-bit  word  shown  in  Table  I. 

Fig.  2  shows  an  overall  scheme  for  our  data  extraction  electronics. 
The  PCM  decommutator  manufactured  originally  by  the  Monitor  System 
provides  two  functions:  it  finds  a  clock-rate  of  the  telemetry  signal 
which  is  play-backed  by  SABRE  IV,  and  it  generates  a  clock-pulse  stream 
synchronized  with  the  telemetry  signal.  The  unit  was  modified  by  us  to 
accept  a  bit  rate  of  800  K  BPS.  The  produced  output  was  a  serial  72-bit 
string  together  with  the  synchronization  clock  pulse,  if  the  unit  succeeds 
to  detect  a  bit  pattern  of  the  synchronization  word.  When  a  detection 
failure  occurs,  the  clock  pulse  stops  and  the  error  flag  is  raised.  The 
error  status  continues  until  the  reset  switch  is  manually  intervened. 

The  interface  electronics  provides  two  major  functions:  (l)  an 
extraction  of  a  proper  1 6-bit  word  from  a  serial  72-bit  string  of  the 
telemetry;  and  (2)  a  parallel  l6-bit  output  to  DRUB  parallel  I/O  inter¬ 
face  of  PDPll/20.  The  unit  accepts  three  signals  provided  by  the  PCM 
de commutator:  (l)  PCMIN  signal  of  a  serial  72-bit  data  word;  (2)  a 

clock  signal  synchronized  with  PCMIN,  and  (3)  FTO  signal  indicating  a 
completion  of  each  PCMIN  signal  transmission.  The  logic  used  in  our 
scheme  is  shown  in  a  block  diagram  of  Fig.  3.  The  WORD  SELECT  logic 
accepts  cither  a  command  from  a  manual  switch  on  the  front  panel,  or  an 
external  control  signal  provided  by  the  PDP11.  The  HAND  SHAKE  circuit 
provides  an  ordinary  flag  logic  for  indicating  that  the  data  are  ready 
for  transfer  to  the  CPU.  Figs.  U  through  8  show  the  component  circuits 


in  detail. 

The  PDP1 L/20  mainframe  accepts  the  parallel  1 6-bit,  data  via  DRUB 

|.;icm  I  I  ■- 1  I  /f  j  i  ril.'-r  !'/!■-■  • .  Tin-  I '  i  r  • : :  1 .  ],r<  ii-'rmn  <i  i  :w  irn  rii::  l,h<-  bit.  |  nil.  I.<  ■  rn  'if 

the  control  status  word,  and  transfers  the  entire  l6-bit  word  to  RK1 
disk  memory  without  discriminating  the  zero  words  interspersed  in  the 
interferogram  signal.  The  second  program  examines  the  data  stored  on 
RK1  for  their  validation.  Only  the  proper  data  are  selected  to  transfer 
to  DTO.  The  generated  data  files  on  DTO  are  recorded  with  the  standard 
RT11  format.  The  data  transfer  from  DTO  to  MT  is  done  using  the  standard 
RT11  peripheral  interchange  software  PIP.  The  final  data  recorded  on  MT 
are  formatted  on  800  BPI,  7  track,  odd  parity  magnetic  tape  blocked  by 
256  l6-bit  words,  which  are  composed  by  ^  6-bit  bytes  with  a  parity  bit 
accompanying  to  each  byte.  The  software  programs  loaded  on  PDPll/20  for 
these  operations  are  listed  in  APPENDIX. 
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Spectral  Recovery  Process  on  CPC  Cyber 

The  interferogram  data  on  a  T-track,  800  BPT  magnetic  tape  arc- 
recorded  under  control  of  the  PDP/RT11  operating  system.  The  general 
scheme  for  spectral  recovery  shown  in  a  block  diagram  of  Fig.  9  has. 
consequently  an  extra  step  required  for  a  conversion  of  the  RT1 1  format 
word  to  the  CDC  internal  format.  The  CPC's  COPYHF  command  under  !,h<- 
NOS  operating  system  provides  a  satisfactory  data  transfer  to  the  CDC 
disk  memory  for  our  data  generated  by  the  PDI’/RTll  system.  The  conversion 
of  the  data  to  the  CDC  Cyber  format  is  carried  out  by  CXREAD  listed  in 
APPENDIX.  The  gain  change  in  the  interferogram  data  is  adjusted  by 
SKXREAD,  also  listed  in  APPENDIX.  These  two  programs  were  developed  by 
us  for  this  operation.  The  rest  of  the  numerical  computation  process  is 
our  standard  routine  used  for  general  purpose  spectral  recovery  in  our 
Fourier  spectroscopy  effort.  The  Appendices  provide  a  listing  of  the 
entire  software  package.  The  final  outputs  are  generally  produced  with 
(l6l5)  format  with  the  highest  peak  value  of  the  recovered  spectrum 
normalized  to  1000. 
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Interferogram  Data 

The  interferogram  data  extracted  from  the  telemetry  record  are 
summarized  in  Table  II.  The  time-code  generator  failed  to  function  at 
the  time  of  our  data  extraction  effort.  The  extracted  interferogram 
data  were  identified  by  reading  the  SABRE  IV  footage  counter.  Included 
in  the  Table  are  the  approximate  balloon  altitudes.  We  found  two  major 
trouble  spots  in  the  telemetry  record,  where  the  PCM  decommutator  failed 
to  establish  a  lock-in,  (l)  between  1600  ft.  and  2300  ft.,  and  (2)  between 
Ul50  ft.  and  U3U0  ft.  The  telemetry  record  beyond  ^3^0  ft.  produced  the 
interferogram  data  not  extending  to  the  full  optical  path  difference. 

The  PCM  decommutator  was  able  to  lock-in  to  the  synchronization  word  for 
those  data. 

We  observed  that  the  interferogram  data  starting  position  varied 
considerably  among  these  sixteen  extracted  from  the  tlemetry  record. 

The  gain-change  scheme  was  implemented  under  the  basic  design  assumption 
that  the  interferometer  would  commence  to  take  data  without  a  narrow 
proximity  centered  at  a  pre-fixed  position.  The  first  several  hundred 
data  points  would  be  measured  with  a  low  gain  setting,  since  they  would 
fall  in  a  region  of  the  central  modulation.  After  these  data  points, 
the  detector  amplifier  would  be  set  at  a  high  gain  (a  factor  of  5*6  times 
the  gain  in  the  first  region).  The  interferometer  did  not  scan  in 
accordance  with  this  design  during  the  flight.  The  gain-change  scheme 
lost  its  function  and  a  majority  of  the  interferogram  data  were  recorded 
with  a  single  gain.  In  addition  to  the  gain-switching  scheme,  the 
detector  amplifier  was  designed  to  accommodate  a  gain-adjustment  in 
accordance  with  the  preceeding  interferogram  modulation  in  the  ZPD  region. 
Because  the  gain-switching  position  did  not  provide  a  required 
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Table  II 


Designation 

SABRE  IV 

Footage  Reading 

Balloon 

Altitude 

A 

1100 

2700  m 

B 

1200 

2800 

C 

13^0 

2900 

D 

1480 

3050 

E 

2300 

3800 

F 

2400 

3950 

G 

2560 

4100 

H 

2700 

4200 

K 

2840 

4350 

L 

2980 

4500 

M 

3110 

4600 

N 

3400 

4900 

P 

3510 

5000 

Q 

3650 

5150 

R 

3790 

5250 

S 

3930 

5400 

T* 

4340 

5800 

U* 

4470 

5900 

V* 

4600 

6050 

X* 

4745 

6150 

*The  PCM  decommutator  was  able  to  lock-in,  but  the  inter- 
ferogram  data  were  fragmentary. 
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synchronization  with  the  interferogram  ZPD  position  due  to  the  trouble 
described  above,  a  considerable  gain  fluctuation  was  resulted  among  the 
data.  The  central  modulation  of  some  data  was  found  to  be  saturated. 


A  critical  inspection  of  the  data  quality  became  necessary  in  our 
effort  because  of  the  difficulties  in  the  interferometer  scanning.  We 
devised  to  observe  the  phase  curve  of  the  ZPD  region  for  all  the  inter¬ 
ferogram  data  extracted,  and  found  it  varying  from  one  interferogram 
data  to  another  in  a  substantial  degree. 

The  S/N  in  the  recovered  spectra  was  found  far  below  the  figure 
expected.  The  interferogram  data  were  not  measured  with  a  dynamic 
range  originally  planned  because  of  the  interferometer  scanning  problem. 

We  believe  that  a  correction  of  the  interferogram  scanning  difficulty  is 
essential  for  achieving  overall  improvement  of  the  spectrometry. 

The  data  were  sampled  at  an  interval  of  twice  the  HeNe  laser  line 
wavelength.  We  do  not  believe  that  the  sampling  scheme  used  for  the 
October  1980  flight  would  add  any  advantages  to  the  scheme  which  we 
planned  originally.  The  resulted  disadvantage  was  far  greater  than  other¬ 
wise.  We  strongly  recommend  to  adopt  the  originally  planned  sampling 
interval. 

We  found  that  the  U-bit  status  word  for  the  interferogram  data 
produced  no  consistency  to  what  the  data  indicated.  The  gain-bit 
registered  in  the  status  word  did  not  conform  with  the  actual  gain-setting 
of  the  detector  amplifier.  We  judged  the  amplifier  gain  by  inspecting 
the  off-set  bias  voltage  in  the  data,  the  scheme  implemented  by  the 
University  of  Denver.  A  problem  faced  us  with  the  U.  Denver  scheme  was 
that  we  found  it  rather  difficult  to  write  a  fail-safe  software  for 
accommodating  the  gain-adjustment.  The  software  listed  in  APPENDIX 
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provided  a  service  for  a  majority  of  the  cases.  We  did  not  bother  to  re¬ 
write  it  for  broadening  its  coverage  of  the  cases  which  fall  outside  of 
its  applicability.  We  knew  that  its  applicability  was  limited  and  that 
several  cases  could  not  be  processed  by  using  the  scheme.  The  gain 
adjustment  for  those  cases  was  implemented  manually  by  inspecting  the 
raw  data.  The  procedure  that  we  adopted  for  the  present  case  cannot 
produce  a  sufficient  efficiency  for  the  case  where  the  processing 
involves  several  hundred  of  the  interferogram  data.  For  future  flights, 
we  hope  that  the  status  word  would  furnish  a  true  reflection  of  the 
interferogram  data. 

Figures  10  through  25  show  the  raw  interferogram  data  extracted 
from  the  telemetry  record.  Figures  2 6  through  38  show  the  spectrsi 
recovered  with  a  resolution  of  .5  cm  1.  The  data  F,  L  and  S  had  its 
central  modulation  recorded  in  the  low  gain  setting.  A  dynamic  range 
of  their  recording  was  extremely  small,  resulting  in  the  recovered 
spectra  of  an  exceptionally  low  S/N.  They  are  not  shown  because  of 
excessive  noise  content.  The  phase  curves  shown  in  Figure  39 
are  obtained  with  a  spectral  resolution  of  approximately  125  cm  ^ . 

They  are  not  stable  principally  because  of  the  dynamic  range  saturation 
in  the  CM  region.  It  was  found  that  among  these  interferograms  processed, 
the  data  N  was  free  from  these  problems. 


Fig.  10  Interferogram 


Fig.  11  Interferogram 


Fig.  lU  Interferogram 
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Fig.  18  Inter ferogram 


Fig.  19  Interferogram 


Fig.  20  Interferogram 


Fig.  2b  Tnterferogram 


Fig.  28  (a)  Spectrum  C  500  cm-  ^  1000  cm 


Fig.  32  (a)  Spectrum  H  500  cm  ^  1000  cm 


75o 


//ZT 


Fig. 


£75" 


/Obo 


/afo 


Cah 


-/ 


39  The  phase  curves,  spectra  E  through  H. 


Figure  bo  shows  the  spectrum  recovered  from  the  data  N  with  a 
resolution  of  0.12  cm  \  The  interferometer  was  not  calibrated  for  its 
spectral  output  as  a  function  of  the  wavenumber.  Thus  the  radiance 
value  of  the  detected  emission  feature  is  remained  undetermined.  The 
detector  used  in  this  flight  was  a  Ge:Hg  operated  at  a  liquid  He  temp¬ 
erature.  A  sharp  drop  in  the  spectral  feature  observed  below  750  cm  ^ 
was  caused  by  the  detector's  sensitivity  loss  at  that  wave  imber.  The 
spectrum  was  observed  at  altitude  of  approximately  5000  m  above  sea 
level.  The  interferogram  was  directed  about  10°  upward  with  unknown 
azimuthal  orientation.  With  the  observed  spectrum,  two  synthesized 
spectra,  calculated  for  a  single  atmospheric  layer  of  250°K  with  the 
column  density  given  in  the  figure  caption,  are  shown  in  Figure  ^0.  The 
observed  spectrum  shown  in  the  figure  is  far  noisier  than  what  the 
instrument  was  designed  to  produce  at  the  best  condition.  A  quantita¬ 
tive  discussion  of  the  spectral  radiance  level  is  not  applicable  for  the 
present  case.  The  emission  features  are  nonetheless  easily  identifiable 
by  comparing  them  with  the  synthetic  spectra. 

There  are  three  major  peculiarities  noticed  in  the  observed  spectrum. 
Since  insufficient  amount  of  spectral  data  were  collected,  we  wish  to 
draw  no  conclusion  regarding  a  validity  of  their  observation.  Nonethe¬ 
less,  they  are  described  below. 

The  HgO  line  feature  in  800  a  900  cm  ^  is  mysteriously  weak  in  the 
observed  data.  The  beamsplitter  should  not  be  held  responsible  for  the 
unusual  feature  in  this  spectral  range,  because  the  atmospheric  absorption 
spectrum  measured  with  a  globar  source  prior  to  the  launching  showed  no 
peculiarity.  The  Q  branch  of  the  800  cm  ^  CO^  band  (12201-10002  of 


^C^Og)  shows  an  absorptive  feature.  The  band  center  at  10U0  cm  ^  of 
the  0^  band  ( 001-000)  is  very  narrow  in  the  observed  while  the  synthetic 
shows  a  well  defined  band  center. 

A  semi-quantitative  estimate  for  the  column  density  of  detected 
atmospheric  molecules  was  tried  by  generating  various  synthetic  spectra 
which  are  shown  in  Figures  ^1  and  h2.  All  spectra  are,  as  those  shown 

with  the  observed  spectrum,  plotted  in  the  emissivity  against  the  black- 
body  emission  at  the  highest  temperature  of  the  synthetic  model  atmosphere. 
The  figure  caption  details  the  atmospheric  condition  for  each  synthesis. 


In  it 


Fig.  Ul  Caption 


Theoretical  Spectra 

Top:  Synthesized  assuming  a  single  layer  at  T  =  250°K;  total 

2k  ,  23 

molecular  concentration:  H^O  =  .23  x  10  ,  C0^  =  .21+  x  10  , 

03  =  1.1+2  x  1019,  N20  =  .21+  x  1019. 

Middle:  Synthesized  assuming  six  layers  specified  below. 
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Bottom: 

Synthesized  assuming  six  layers  specified 

below. 
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Conclusion  and  Recommendations  For  Future  Flights 

The  October  1980  flight  provided  a  valuable  test  for  the  basic 
concept  of  the  SCRIBE  program.  It  established  a  validity  of  the  experiment. 
The  cryogenic  interferometer  was  shown  to  be  very  effective  for  measuring 
the  atmospheric  emission.  The  principal  problem  which  contributed  to  a 
degradation  of  the  result  was  the  unstable  turn-around  behavior  in  the 
interferometer  scanning.  We  expect  that  the  problem  will  be  solved  in  a 
satisfactory  degree  by  the  next  flight.  With  the  interferometer  scanning 
problem  being  solved,  several  problems  related  to  it  will  be  cured 
automatically.  There  are  several  modifications  which  we  would  like  to 
recommend: 

(1)  Elimination  of  the  gain-adjusting  scheme.  The  radiance  level 

of  the  emission  is  known.  An  on-board  calibration  scheme  for  the  radiance 
level  is  necessary,  and  it  would  determine  the  gain  of  the  detector 
electronics. 

(2)  Inter ferogram  sampling  interval  to  be  a  single  laser  fringe 
distance.  The  present  sampling  interval  of  twice  the  fringe  distance 
could  invite  more  problems. 

(3)  Improvement  of  the  electronics  which  generates  the  U-bit  inter- 
ferogram  status  word.  The  last  flight  data  indicated  a  poor  reliability  of 


the  scheme. 


Appendix  A 


.TITLE  DR11B  TO  RK1 
. CSECT  DUMPAL 
. GLOBL  BASES.  HNDLRS 


. MCALL  . .V2. . , .REGDEF. .PRINT. .EXIT. .CSIGEN 
•  MCALL  .READC. .URITW. .CLOSE. .SRESET. .ENTER 

.  .02. . 

.REGDEF 


BLKSIZ 

*  40 

1 

♦  BLOCKS  <?  RECORD 

RECSIZ 

=  <  BLKSIZ  *  400  > 

f 

♦  WORDS  ?  RECORD 

FRAMSZ 

=  RECS 

iz  ;  * 

DATA 

WORDS 

ERRWD 

=  52 

9 

MONITOR  ERROR  CODES 

DRVEC 

=  124 

f 

ADDRESS  OF  DR  INT  VECTOR 

DRPSW 

=  340 

f 

INTERRUPT  PRIORITY  BR7 

DRWC 

=  172410 

DRBA 

=  DRUG 

+  2 

DR  ST 

*  DRUIC 

+  4 

DRDA 

=  DRUG 

+  6 

TKS 

=  177560 

? 

TT  HARDWARE  REGISTERS 

TKB 

=  TKS  + 

2 

SWR 

=  177570 

EOTBIT 

»  2000 

f 

MT  EOT  STATUS  PIT 

CNTRLC 

=  203 

9 

ASCII  "C 

5 

* 

*  * 

* 

*  *  * 

start; 

JSR 

PC. INIT 

JSR 

PC. BELL 

lo; 

JSR 

PC. PCM IN 

i  BUFFER  LOAD 

JSR 

PC.RKOUT 

JSR 

PC. TRACE 

.PRINT 

♦DONE 

JSR 

PC.  BELL 

JSR 

PC. CLOSER 

.EXIT 

DONE : 

. ASCIZ 

/  DONE/ 

.EVEN 

; 

* 

*  * 

* 

*  *  * 

f  INITIALISE  DEVICES.  OPEN  FILES.  PRESET 

»  PROGRAM  VARIABLES.  AND  SET  IN’-  VECTOR 

INIT!  MOV  (?*TKS » TSTEMP 

CLP  0ITKS 


7 


CLR 

CLR 


FRAME 

BLKNUM 


.ENTER 

♦AREA*#0» ♦DEV»#-1 

BCS 

BADENT 

MOV 

♦DRINT  t B*DRVEC 

MOV 

♦  DRFSU f 84DRVEC+2 

RTS 

PC 

dev: 

.RAD50 

/RK1/ 

•  RADSO 

/PCM/ 

•RAD50 

/RK1/ 

.  RAD50 

/DAT/ 

AREA : 

.  BLKU 

10 

BADENT 

:  .PRINT 
.EXIT 

♦EMSG 

badur: 

•PRINT 

.EXIT 

♦UMSG 

emsg: 

.  ASCIZ 

/BAD  ENTER/ 

umsg: 

.  ASCIZ 
•  EVEN 

/BAD  URITE/ 

* 

****** 

» 

RING  BELL  ON  TERMINAL 

bell  : 

.PRINT 

♦BELMSG 

RTS 

PC 

belmsg: 

•  BYTE 
.EVEN 

7f7»7f7f7,0 

* 

****** 

i 

START  DRUB  WITH  INTERRUPT  ENABLED 

f 

<  VECTOR  POINTS  TO  •DRINT*  ) 

pcmin: 

CLR 

DRFLG 

MOV 

♦  30  r  BCOUNT 

loopa: 

BIT 

♦  UP*SUR  i  LOOP  UNTIL  "READY 

BEQ 

LOOPA 

MOV 

♦-FRAMSZ » (?#DRUC 

MOV 

*BOf@*DRBA 

CLR 

(»*DRST  i  STROBES  DRST  REGISTER 

MOV 

(?♦  1 77570 f(?*DRST  fSU  REG 

RTS 

PC 

* 

****** 

* 

RK1  WRITE 

RKOur: 

MOV 

♦  B1  ,B 

AGAtN; 

MOV 

♦BO.BUF 

aa: 

PIT 

♦1 f DRFLG 

BE  0 

AA 

MOV 

♦  BO  f  B 

.WRI1W 

♦  ARF.Af  »OfBUF  f #20000 fBLNNUM 

BCS 

BADUR 

ADD 

MO  f  BLKNUM 

MOV 

*B1 fBUF 

ab: 

BIT 

♦  1 f  DRFLG 

BNE 

AB 

•  WRITW 

♦AREA .  *0 . BUF » *20000 . BLKNUM 

BCS 

BADWR 

ADD 

♦40 .BLKNUM 

DEC 

BCOUNT 

BNE 

AGAIN 

RTS 

PC 

drflg: 

.WORD 

0 

bcount: 

.WORD 

30 

buf: 

.WORD 

0 

f 

f 

? 

i 

* 

*  * 

DR 11  INTERRUPT  HANDLER 
TRAP  t  REPORT  ERRORS. 
START  MAGTAPE  WRITE. 

drint: 

MOV 

B . 04DRBA 

MOV 

♦-FRAMSZ . 04DRWC 

MOV 

0*SWR.0*DRST 

INC 

DRFLG 

ordone:  rti 


******* 

DUMPS  DRUB  REGISTERS 


DRHUMPS  MOV 

RO.-<SP> 

MOV 

R1 »-<SP> 

MOV 

04DRWC.RO 

MOV 

♦DRUCM. R1 

JSR 

PC. BASES 

MOV 

04DRBA.RO 

MOV 

♦DRBAM. R1 

JSR 

PC . BASE8 

MOV 

04DRST.RO 

MOV 

•DRSTM.R1 

JSR 

PC. BASES 

MOV 

04DRDA.RO 

MOV 

♦  DRDAM.R1. 

JSR 

PC. BASED 

.PRINT 

♦DRDMSG 

MOV 

<SP)+.R1 

MOV 

(SP>  f.RO 

RTS 

PC 

drdmsg:  .ascii 

/  OR  DUMP/ 

.  BYTE 

12.  15 

•ASCII 

/  UC  / 

drucm:  .blkb 

6 

.ASCII 

/  BA  / 

drbam:  .blkb 

6 

ASCII  /  ST  / 


DRSTM 


8LKB 


6 


.ASCII 

/  DA  / 

brdam: 

.  BLKB 

6 

•  BYTE 
.EVEN 

0 

t 

* 

*  * 

♦  *  $  * 

i 

DISPLAYS  CURRENT  FRAME  NUMBER  IF 

i 

TTY  KEY  IS  PRESSED.  ALSO  STOPS 

r 

PROGRAM  ON  "C 

trace: 

TSTB 

0*TKS 

BEQ 

TRACND 

•PRINT 

♦TRDUMP 

MOV 

R1.-<SP> 

MOV 

0*TKB»-(SP> 

MOV 

BCOUNT  » RO 

MOV 

♦FRMNUM.R1 

JSR 

PC i BASES 

.PRINT 

♦TRACEM 

MOV 

(SP)+»KO 

CMPB 

♦CNTRLC » RO 

BNE 

TRACNM 

.PRINT 

♦TRACE* 

MOV 

TSTEMP.MTKS 

JSR 

PC. CLOSER 

.EXIT 

tracnm: 

MOV 

<  SP )  +  .R1 

iracnij: 

RTS 

PC 

IRPUMP! 

.ASCIZ 

/  TR  DUMP  / 

TRACEM ! 

.ASCII 

/  FRAME  ♦  / 

i-rmnum : 

.  BLKB 

6 

.  It  f  IE 

0 

TRACE X ! 

.ASCIZ 
.  EVE  N 

/  ABORT/ 

> 

•Y 

X  * 

*  *  *  * 

i 

REPORT  ERRORS  X  ABORTS  PROGRAM 

ERRORS : 

MOV 

ERRNIJM.RO 

MOV 

♦ERRSUB.R1 

JSR 

PC . BASES 

MOV 

ERRUD . RO 

MOV 

♦ERRWRD.R1 

JSR 

PC. BASES 

•PRINT 

♦ERRMSG 

• 

I  SR 
.EXT  I 

PC. CLOSER 

ERRMSG : 

.ASCII 

/  ERROR:  SUB 

/ 

n 


errsub:  .blkb  6 

•ASCII  /»  CODE  / 

errwrd:  .blkb  6 

.BYTE  0 
.  EVEN 


closer:  .close  #o 

.CLOSE  *3 
.CLOSE  #4 
.SRESET 
RTS  PC 


CLOSE  FILES.  RESET  SYSTEM 


STATUS  BLOCK 


STATUS 
FRAME : 
blknum: 
ERRNUM : 
rkiflg: 
sptemp: 
rs 'emp: 
emi  i : 
EMT2: 
EMT  3 ! 
EMT 4  : 


ENDBUF:  .  =  STATUS+lOOb 

bo:  .blku  recsiz 

Bi:  .BLKU  RECSiZ 

b:  .uorb  o 


f  400  WORDS 


15 


n  o  n 


70 

READ 


10 


70 


.30 

100 


DIMENSION  IDATA< 4096 ) »IBUFF< 4096) . NAME1 ( 4  > .  NAME2 <  4 )  » NAME3 < 1 ) 
DATA  NAME1/3RRK 1  r  3RPCM  .  3RRK1 .  3RDAT/ 

DA  TA  NAME2/3RDT0 » 3RPCM , 3RD A T ,  3RDAT/ 

DATA  NAME3/3RDTO/ 

DO  70  1  =  1 .4096 
I DAT  A  < I ) =0  * 

CONTINUE 

FROM  R'M 

JSIZE=4096 
IC=IGETC<  ) 

IF  <  LOOKUP  <  IC » NAME1  >.LT.O)STOP  '  BAD  LOOK  UP' 

JC=IGETCO 

IF  <IFETCH< NAME3 ) . NE • 0 ) S TOP 'FATAL  ER'REft  FETCHING  HANDLER' 

IC1 = IENTER ( JC • NAME2  >0.0) 

IF(IC1.EQ.-1)ST0P 'ENTER  FAILURE  NO  CHANNEL' 

IF < IC1 . EQ . -2JST0P' NO  SPACE' 

ISTART=1 

IEND=0 

INDEX=0 

NB=0 

IAA=4096 
IC0UNT=18 
INB  =  1 

CALL  IREADU  < 4096 . IDATA . NB . IC > 

I  CODE  =  I  RE  ADLI  <  40 96  .  I D  AT  A  .  NB  . I C  ) 

IF  (ICODE.Ea.~l)  GO  TO  100 
NB=NB+16 

CALL  SCECr  (IHATAr  ZBUFF,  JSIZEr  ISTART,IEND> 

IF  < IEND.LT • IAA)00  TO  10 
K  =  1 

DO  20  I  =  IST ART »  J  A A 
I  BUFF  < I )  =  I DAI  A ( K ) 

K=K  +  1 

CUNT INUE 

IFdCOUNT.NE.l)  GO  TO  25 
DO  22  1=2049.4096 
I  DUFF < I ) =0 
CONTINUE 

CALL  £  UR  I TW  (  4096  .  I  BUFF  .  J  NB  .  ,.IC  ) 

INB--  tNBt-16 
J=1 

REND = I END- I START 
DO  30  I  -K.KEND 
I PUFF ( J  >  -IDATA( I ) 

J  =  J+1 

CONTINUE 

TEND  - J- 1 

l COUNT  - t COUNT- 1 

IF ( [COUNT. NE.CO  GO  TO  10 

CAM  Ct.OSEC  (TO 

CALL  I  FREEC  (  II  > 

CALL  CIOSEC(JC) 

CALL  l FREEC (JC> 

CALL  EXIT 


SUBROUTINE  SLECT  < IDATA » IBUFF . JSIZE . ISTART , IEND > 
DIMENSION  I DATA < 1 ) » IBUFF ( 1  > 

DATA  ITEST  /5/ 

INDEX=1 

ISTART=IEND+1 

J=t 

DO  10  1=1. JSIZE 
IX=IDATA<I> .AND. ITEST 
IF  (IX.NE.5)  GO  TO  10 
CALL  ZEROUT  < IDATA ( I ) . INDEX ) 

IF< INDEX. EO.O)  GO  TO  10 
I DAT A ( J )  =  1  DATA  < I ) 

J=J+1 

10  CONTINUE 

J=J-1 

IEND=ISTART+J-1 

IE( IEND. GT. 4096)00  TO  30 

J=I 

DO  20  I “1ST ART . IEND 
I BUFE  < I >  =  IDATA<  J> 

J=J+1 

20  CONTINUE 


30 

RETURN 

END 

* 

STAKE 

ZERO  DATA 

OFF  THE  TAPE  (DATA. INDEX) 

.  mcall 

.  .V2. . . . REGDEF 

.  .  02 .  . 

•REGDEF 

.  GLOBL 

ZEROUT 

ZEROUT 

:  TST 

(R5>  + 

MOU 

0<R5>+.R2 

MOO 

*1 ,0<R5> 

PIC 

*17. R2 

ROR 

K'2 

ROR 

R2 

ROR 

R2 

ROR 

R2 

TST 

K7 

BNE 

our 

CL  ft 

0  ( R5 ) 

f 

out: 

RTS 

PC 

7 

.END 

ZEROUT 

* 

77 


PROGRAM  T»E AID(TAPfy,TAPEl,TAPE6) 
QIMfcNS  ION  10(256) , If <512 ) 

100  FORMAT  (  3  (IX ,03 ) ) 

101  FORMAT  (3  (2X  ,03  >  ) 

N  =  104 

10  CONTINUE 

00  50  1=1,256 

ID  ( I )  =  0. 

50  CONTINUE 

RUFFE R  IN (9,1)  (IOC1), 1 0  C  N  > ) 

IF (UNIT ( 9 ) )  11,21,31 

11  CONTINUE 

CALL  T  PQCOOE ( I  D  *  I E  ) 

URI  Tfc  (6,  ICO)  (IE  fl)  ,1  =1,256) 

GO  TO  10 
21  CONTINUE 
31  CONTINUE 
CALL  EXIT 
G  TOP 
END 


CUPP  OUT  I NE  TCOCOOE  (10, IE) 

01  ff  NS  ION  10(2)  ,  I E  (2)fIA(6),I0(5)  , IC ( 4 ) 

CATA  ( I A  C I ) ,  1  =  1, 6) /7  77 77 7770000000000008, 7  777 77  7 700000,77778, 
1  77  7  7  GC  00  0  00  000  0  00  0  030,7777777  70  0  COO  COCO,  7  7  777  7778/ 

CATA  ( IC (I) ,1  =  1, 4) /17B,1 70  G 1 , 1  7  3 0  CO  0 , 1  7  0  0  0  C CO  8/ 

L  =1 
J  =  1 

jO  11  1=1,61 
I X=  TO ( L )  • ANO. IA  (1  ) 

I3(l)=EHIFr (IX, -36) 

IX=I0 ( L) . AMO. IA (2) 

1 0  (  2  )  =  SH  If-  T  (IX, -12) 

I  X  =  I C ( L )  . AND . I  A  (  3  ) 

IY  =  IQ(L*1)  .A  )0 .  I A  (  4 ) 

I77=«HIFT(IY,-4A> 

IZ  =  SHIFT  (IX, 12) 
in(3)=I7Z+I7 
IX=ID(L*1) ,AN0. IA(5) 

IB(4)=?HIFT (IX, -24) 

Ifl ( 5  >  *  10 (L  ♦  1 ) .AND.  I A ( 6 ) 

L  =  L  ♦  ? 

CO  12  K  =  l , 6 

i x = i n <  k)  .  anc.  ic  ( *4 ) 

IY=ie(K) .AND. IC (3) 

I7=IP(K>  .AN[).IC(2> 

IZ7=IP  (<)  .ANO.IC(l) 

IF(J)  =  SHIFT  (Iv,-12)*SHIFTCIZ,-2)+SHIFT  (IZZ,6)+IX 
J= 

1?  continue 
11  continue 

IX=inCL) . ANO.IA(l) 

I  3  ( 1 )  2  3H  IF  T  (  IX, -36) 

I X= I  6 ( 1 )  .AND. IC (4) 

I  Y  =  I R  (  1)  . ANQ.IC  (?) 

T  Z= I R ( 1 )  .AMD.IC (?) 

I  7  7= IB U )  .AND. IC(1  ) 

IF (J) = SHIFT ( IY, -12) +SHIFT  C 17,-2) ♦SHIFT (I ZZ«8>  *IX 
RfTUFN 
F  NO 


I  •••'!!  •  .i  V  i  T  f :  ’  r  I  ,  ! r  1  ■■  HI 1 T  PUT  >■  T  API 

D  TARN 01 ON  ! A  <  '•  • 

EORMA  -  I  P  r:  • 


rnr.'M.--Tc o-  i 

«•  rip  j 

EOF 'MC,  '  '  A  1  A 

i 

!•  r  j'-i  V:  i  />  i |  "1  *  ■’ 

■  Ji'Hl' 

read  c  6  ? o? 

i;ui 

READ  ( 6  .1. 02 

lUjJi- 

READ-' 6  v  1  01 

r  r  A  i 

TAPER  I.  0 
pvr ;  ■ a 

DC;  |  ('■  I  ~  1  •  "  E  4 
i.AVEE.i  ■  i  A" EE'!  !  I  A  <  I 
TA'.'ER.:'-  TAPERP!  tat  n 
. .)  ■  1 

cor  rr our 

T  A  OF  . 1  'I  a 'ER  !. /05f 

;!  CAT  EP  •  T  '>DER9/254 
PR  T  u T  K-O,  TAUPE  I  ■  T A'-'ER 2 

rnrr  «  tamer?  •  iaui.e  j  >/::• 
v.-c  ip  ,r  •  i  <•  ;  a  a  : 

T'V:  t  '■  •  r  a  •  >  ■  taderi 

TFiiAcn  i .  t  ..  i  nirf"  >  on  to  it, 

continue 

CONTINUE 

!  '■  R  !  i  i  f  !  0  0  I 

i :j  :r  s  a 

£  .El”- T  f  1.5 

PRIi-T  1.00  t  (  I  A  (  J  )  v.J:.r  .1,  1.IJ) 
ik  -:i:  -  i 

DO  19  K~1».IK 

A:.:.!"!  OAT  T  A  f  E  '  Vrjp;;., ,, 

T  A  £  K  ) '  I!  E  T ' "  •'  A  "• 

CONTINUE 
I !  K  IK! ! 

T  A  f  J  K  K  :•  T  A  <  T I  "  >  I A  l  ’  E I  •  ?  f  T  A 1  ’  E  R .!. 
TK I".:  JKK  {  I 

PO  7  1  K  run- T A 0 A 
TA  ■  I")  TA  K  >  TAUERI' 

COAT  INI  !E 

up  it:  •[ » i  oo  >  t  ta  (  t  >  ?  t  j  door  > 

i  'C  | .7  K  ••••• ;!  A] 

READ A  ..  1. 0  I  •  (  T  A  (  T  >  I -  .1  4006 ' 
no  ip  T  I. , 409c 
I  A  (  T.  ">  TA«  T  '■  -  T  AUER 2 

con  r  ik  or: 

UR  I TE  (  I  i.  00  - 1  *  4096  > 

CONTINUE 
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